home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
090
/
cmln0686.arc
/
EDITOR1.FIG
< prev
next >
Wrap
Text File
|
1986-04-02
|
896b
|
37 lines
Figure 1
Longest line and average line length macro
(defun
(mactest sumleng longest averleng numl longleng
(setq sumleng 0)
(setq longleng 0)
(setq longest 0)
(setq numl 0)
(set "track-eol-on-^N-^P" 1)
(beginning-of-file)
(end-of-line)
(while (!= (following-char) 0)
(setq numl (+ numl 1))
(setq sumleng (+ sumleng (current-column) ) )
(if (> (current-column) longleng)
(progn
(setq longest numl)
(setq longleng (current-column) )
(set-mark)
)
)
(next-line)
)
(setq averleng (/ sumleng numl) )
(goto-character (mark))
(beginning-of-line)è (message (concat "Cursor is in longest line, (" longest ") average length = "
averleng) )
)
)